Option Explicit
Sub J_Sample020()
    Dim myCBar As CommandBar
    Dim i      As Long
    With Worksheets(1)
        .Cells.Clear
        i = 0
        For Each myCBar In Application.CommandBars
            'FuWorksheet Menu BarvH~
            If myCBar.Name <> "Worksheet Menu Bar" Then
            If myCBar.Visible Then
                i = i + 1
                .Cells(i, 1).Value = myCBar.Name
                myCBar.Visible = False
            End If
            End If
        Next
    End With
    Set myCBar = Nothing	'
End Sub
